Aminet 19/Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso/Aminet/comm/cnet/cnet_toolkit.lha/routines/TIM

Text File | 1997-04-05 | 384b | 6 lines

TIM: procedure;parse arg ti,mo;ti=right(ti,6);select
  when mo=12&verify(ti,"ap","M")~=6 then if left(ti,2)>12 then ti=" "left(ti,2)-12||substr(ti,3,3)"p";else ti=ti"a"
  when mo=24&verify(ti,"ap","M")=6 then ti=left(ti,2)+(12*(right(ti,1)="p"))||substr(ti,3,3)
  otherwise if mo=0 then ti=(left(ti,2)+(verify(ti,"ap","M")=6)*(12*(right(ti,1)="p")))*60+substr(ti,4,2)
  end;return ti